PC World Komputer 1998 July & August/Pcwk78a98.iso/Sharewar/Organise/_SETUP.1/Epoch Organiser 3.0.exe/0/RCDATA/TEPOCH/TEPOCH.txt

Text File | 1998-01-25 | 63KB | 2,008 lines

object Epoch: TEpoch
  Left = 5
  Top = 4
  Width = 634
  Height = 463
  BorderIcons = [biSystemMenu, biMinimize]
  Caption = 'Epoch Organiser 3.0'
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clBlack
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {<image000.ico>}
  Menu = MainMenu1
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Bevel1: TBevel
    Left = 1
    Top = 0
    Width = 623
    Height = 2
  end
  object Bevel2: TBevel
    Left = 1
    Top = 22
    Width = 623
    Height = 2
  end
  object Bevel3: TBevel
    Left = 145
    Top = 2
    Width = 2
    Height = 19
  end
  object Bevel4: TBevel
    Left = 336
    Top = 2
    Width = 2
    Height = 19
  end
  object TodayLabel: TLabel
    Left = 151
    Top = 5
    Width = 56
    Height = 13
    Hint = 'Reset Calendar To This Date'
    Caption = 'TodayLabel'
    ParentShowHint = False
    ShowHint = True
    OnClick = TodayLabelClick
  end
  object Bevel5: TBevel
    Left = 407
    Top = 2
    Width = 2
    Height = 19
  end
  object TimeLabel: TLabel
    Left = 281
    Top = 5
    Width = 27
    Height = 13
    Caption = '88:88'
    Color = clBtnFace
    ParentColor = False
    OnClick = TimeLabelClick
  end
  object Bevel6: TBevel
    Left = 537
    Top = 2
    Width = 2
    Height = 19
  end
  object Loadbtn: TBitBtn
    Left = 1
    Top = 1
    Width = 28
    Height = 22
    Hint = 'Load A Diary File'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 0
    OnClick = LoadDiaryClick
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000130B0000130B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033333333B333
      333B33FF33337F3333F73BB3777BB7777BB3377FFFF77FFFF77333B000000000
      0B3333777777777777333330FFFFFFFF07333337F33333337F333330FFFFFFFF
      07333337F3FF3FFF7F333330F00F000F07333337F77377737F333330FFFFFFFF
      07333FF7F3FFFF3F7FFFBBB0F0000F0F0BB37777F7777373777F3BB0FFFFFFFF
      0BBB3777F3FF3FFF77773330F00F000003333337F773777773333330FFFF0FF0
      33333337F3FF7F37F3333330F08F0F0B33333337F7737F77FF333330FFFF003B
      B3333337FFFF77377FF333B000000333BB33337777777F3377FF3BB3333BB333
      3BB33773333773333773B333333B3333333B7333333733333337}
    NumGlyphs = 2
  end
  object Savebtn: TBitBtn
    Left = 29
    Top = 1
    Width = 28
    Height = 22
    Hint = 'Save'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 1
    OnClick = SaveDiaryClick
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000130B0000130B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333330070
      7700333333337777777733333333008088003333333377F73377333333330088
      88003333333377FFFF7733333333000000003FFFFFFF77777777000000000000
      000077777777777777770FFFFFFF0FFFFFF07F3333337F3333370FFFFFFF0FFF
      FFF07F3FF3FF7FFFFFF70F00F0080CCC9CC07F773773777777770FFFFFFFF039
      99337F3FFFF3F7F777F30F0000F0F09999937F7777373777777F0FFFFFFFF999
      99997F3FF3FFF77777770F00F000003999337F773777773777F30FFFF0FF0339
      99337F3FF7F3733777F30F08F0F0337999337F7737F73F7777330FFFF0039999
      93337FFFF7737777733300000033333333337777773333333333}
    NumGlyphs = 2
  end
  object SaveAsbtn: TBitBtn
    Left = 57
    Top = 1
    Width = 28
    Height = 22
    Hint = 'Save File As'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 2
    OnClick = SaveDiaryAsClick
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000130B0000130B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033333333B333
      333B33F333337F3333373B33333BB33333B337FF33377F33337F3BB3333BB333
      3BB3377FF3377F33377333BB777BB777BB333377FFF77FFF7733330000000000
      B3333377777777777333330FFFFFFFF03333337F3FF3FFF7F333330F00F000F0
      33333F7F77377737FFFFBB0FFF8FFFF0BBB3777F3F33FFF7777F3B0F08700000
      000B377F73F7777777773308880FFFFFF033337F377333333733330807FFFFF8
      033333737FFFFFFF7F33333000000000B3333337777777777FF333BB333BB333
      BB33337733377F3377FF3BB3333BB3333BB3377333377F33377F3B33333BB333
      33B33733333773333373B333333B3333333B7333333733333337}
    NumGlyphs = 2
  end
  object Newbtn: TBitBtn
    Left = 85
    Top = 1
    Width = 28
    Height = 22
    Hint = 'New'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 3
    OnClick = NewDiaryClick
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000130B0000130B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033333333B333
      333B33FF33337F3333F73BB3777BB7777BB3377FFFF77FFFF77333B000000000
      0B3333777777777777333330FFFFFFFF07333337F33333337F333330FFFFFFFF
      07333337F33333337F333330FFFFFFFF07333337F33333337F333330FFFFFFFF
      07333FF7F33333337FFFBBB0FFFFFFFF0BB37777F3333333777F3BB0FFFFFFFF
      0BBB3777F3333FFF77773330FFFF000003333337F333777773333330FFFF0FF0
      33333337F3337F37F3333330FFFF0F0B33333337F3337F77FF333330FFFF003B
      B3333337FFFF77377FF333B000000333BB33337777777F3377FF3BB3333BB333
      3BB33773333773333773B333333B3333333B7333333733333337}
    NumGlyphs = 2
  end
  object Previousbtn: TBitBtn
    Left = 113
    Top = 1
    Width = 28
    Height = 22
    Hint = 'Previous File List'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 4
    OnClick = FromListClick
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000120B0000120B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00500055555500
      00005777FFFFFF77777750B077000003333057F77777777F555750B070888803
      B3B057F7F75FFF7F555700B07700000B3B3077F7F577777F555750B07777770B
      B3B057F7F555557F555750B07777770BBB3057F7FFFFFF7F555750B00000000B
      BBB057F77777777F555750B05F5F5F0BBBB057F7F7F7F77F555750B05F5F5F0B
      BBB057F7F7F7F77F555750B05F5F5F0BBBB057F7F7F7F77F555750B07777770B
      BBB057F77777777F555750B05F5F5F0BBBB057F7F757577F5557500055555503
      BBB057775555557F555755555555550B3BB055555555557F5557555555555503
      B3B055555555557FFFF755555555550000005555555555777777}
    NumGlyphs = 2
  end
  object Panel1: TPanel
    Left = 29
    Top = 26
    Width = 592
    Height = 388
    BorderStyle = bsSingle
    Ctl3D = False
    ParentCtl3D = False
    TabOrder = 12
    object Panel4: TPanel
      Left = 3
      Top = 3
      Width = 224
      Height = 376
      BevelOuter = bvLowered
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      object YearBox: TPaintBox
        Left = 1
        Top = 1
        Width = 222
        Height = 374
        OnMouseDown = YearBoxMouseDown
        OnPaint = YearBoxPaint
      end
    end
    object Panel5: TPanel
      Left = 231
      Top = 3
      Width = 356
      Height = 376
      TabOrder = 1
      object Panel6: TPanel
        Left = 0
        Top = 0
        Width = 356
        Height = 30
        BevelOuter = bvLowered
        Color = clTeal
        TabOrder = 0
        object Label0: TLabel
          Left = 38
          Top = 5
          Width = 59
          Height = 19
          Caption = 'Diary For'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWhite
          Font.Height = -16
          Font.Name = 'Times New Roman'
          Font.Style = []
          ParentFont = False
        end
        object Image1: TImage
          Left = 1
          Top = -3
          Width = 32
          Height = 32
          AutoSize = True
          Picture.Data = {<image001.ico>}
          Stretch = True
          IsControl = True
        end
        object DateLabel: TLabel
          Left = 105
          Top = 7
          Width = 65
          Height = 17
          Caption = 'DateLabel'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWhite
          Font.Height = -15
          Font.Name = 'Times New Roman'
          Font.Style = [fsItalic]
          ParentFont = False
          ParentShowHint = False
          ShowHint = True
        end
      end
      object Panel7: TPanel
        Left = 16
        Top = 29
        Width = 340
        Height = 347
        BevelOuter = bvLowered
        Color = clWhite
        TabOrder = 1
        object DiaryBox: TPaintBox
          Left = 1
          Top = 0
          Width = 338
          Height = 346
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          OnMouseDown = DiaryBoxMouseDown
          OnPaint = DiaryBoxPaint
        end
        object ToDoImage1: TImage
          Left = 6
          Top = 21
          Width = 16
          Height = 16
          AutoSize = True
          Center = True
          ParentShowHint = False
          Picture.Data = {<image002.bmp>}
          ShowHint = True
          Transparent = True
          Visible = False
          OnClick = ToDoImage1Click
        end
        object ToDoImage2: TImage
          Tag = 1
          Left = 144
          Top = 21
          Width = 16
          Height = 16
          AutoSize = True
          Center = True
          ParentShowHint = False
          Picture.Data = {<image003.bmp>}
          ShowHint = True
          Transparent = True
          Visible = False
          OnClick = ToDoImage1Click
        end
        object ToDoImage3: TImage
          Tag = 2
          Left = 251
          Top = 21
          Width = 16
          Height = 16
          AutoSize = True
          Center = True
          ParentShowHint = False
          Picture.Data = {<image004.bmp>}
          ShowHint = True
          Transparent = True
          Visible = False
          OnClick = ToDoImage1Click
        end
        object SchedImage1: TImage
          Left = 26
          Top = 20
          Width = 16
          Height = 16
          AutoSize = True
          Center = True
          ParentShowHint = False
          Picture.Data = {<image005.bmp>}
          ShowHint = True
          Transparent = True
          Visible = False
          OnClick = SchedImage1Click
        end
        object SchedImage2: TImage
          Tag = 1
          Left = 162
          Top = 20
          Width = 16
          Height = 16
          AutoSize = True
          Center = True
          ParentShowHint = False
          Picture.Data = {<image006.bmp>}
          ShowHint = True
          Transparent = True
          Visible = False
          OnClick = SchedImage1Click
        end
        object SchedImage3: TImage
          Tag = 2
          Left = 270
          Top = 20
          Width = 16
          Height = 16
          AutoSize = True
          Center = True
          ParentShowHint = False
          Picture.Data = {<image007.bmp>}
          ShowHint = True
          Transparent = True
          Visible = False
          OnClick = SchedImage1Click
        end
        object AlarmImage1: TImage
          Left = 45
          Top = 20
          Width = 16
          Height = 16
          AutoSize = True
          Center = True
          ParentShowHint = False
          Picture.Data = {<image008.bmp>}
          ShowHint = True
          Transparent = True
          Visible = False
          OnClick = AlarmImage1Click
        end
        object AlarmImage2: TImage
          Left = 181
          Top = 20
          Width = 16
          Height = 16
          AutoSize = True
          Center = True
          ParentShowHint = False
          Picture.Data = {<image009.bmp>}
          ShowHint = True
          Transparent = True
          Visible = False
          OnClick = AlarmImage1Click
        end
        object AlarmImage3: TImage
          Left = 289
          Top = 20
          Width = 16
          Height = 16
          AutoSize = True
          Center = True
          ParentShowHint = False
          Picture.Data = {<image010.bmp>}
          ShowHint = True
          Transparent = True
          Visible = False
          OnClick = AlarmImage1Click
        end
        object JournalImage1: TImage
          Left = 63
          Top = 20
          Width = 16
          Height = 16
          AutoSize = True
          Center = True
          ParentShowHint = False
          Picture.Data = {<image011.bmp>}
          ShowHint = True
          Transparent = True
          Visible = False
          OnClick = JournalImage1Click
        end
        object JournalImage2: TImage
          Left = 199
          Top = 20
          Width = 16
          Height = 16
          AutoSize = True
          Center = True
          ParentShowHint = False
          Picture.Data = {<image012.bmp>}
          ShowHint = True
          Transparent = True
          Visible = False
          OnClick = JournalImage1Click
        end
        object JournalImage3: TImage
          Left = 307
          Top = 20
          Width = 16
          Height = 16
          AutoSize = True
          Center = True
          ParentShowHint = False
          Picture.Data = {<image013.bmp>}
          ShowHint = True
          Transparent = True
          Visible = False
          OnClick = JournalImage1Click
        end
      end
      object DiaryScroll: TScrollBar
        Left = 0
        Top = 29
        Width = 17
        Height = 347
        Ctl3D = False
        Kind = sbVertical
        ParentCtl3D = False
        TabOrder = 2
        OnChange = DiaryScrollChange
      end
    end
  end
  object BitBtn1: TBitBtn
    Left = 399
    Top = 1
    Width = 27
    Height = 22
    Hint = 'Address/Contacts Manager'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 7
    OnClick = Button1Click
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000120B0000120B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      33333333333333333333333333C3333333333333337F3333333333333C0C3333
      333333333777F33333333333C0F0C3333333333377377F333333333C0FFF0C33
      3333333777F377F3333333CCC0FFF0C333333373377F377F33333CCCCC0FFF0C
      333337333377F377F3334CCCCCC0FFF0C3337F3333377F377F33C4CCCCCC0FFF
      0C3377F333F377F377F33C4CC0CCC0FFF0C3377F3733F77F377333C4CCC0CC0F
      0C333377F337F3777733333C4C00CCC0333333377F773337F3333333C4CCCCCC
      3333333377F333F7333333333C4CCCC333333333377F37733333333333C4C333
      3333333333777333333333333333333333333333333333333333}
    NumGlyphs = 2
  end
  object Shoppingbtn: TBitBtn
    Left = 426
    Top = 1
    Width = 27
    Height = 22
    Hint = 'Shopping List System'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 8
    OnClick = ShoppingbtnClick
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000120B0000120B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000000
      000033333377777777773333330FFFFFFFF03FF3FF7FF33F3FF700300000FF0F
      00F077F777773F737737E00BFBFB0FFFFFF07773333F7F3333F7E0BFBF000FFF
      F0F077F3337773F3F737E0FBFBFBF0F00FF077F3333FF7F77F37E0BFBF00000B
      0FF077F3337777737337E0FBFBFBFBF0FFF077F33FFFFFF73337E0BF0000000F
      FFF077FF777777733FF7000BFB00B0FF00F07773FF77373377373330000B0FFF
      FFF03337777373333FF7333330B0FFFF00003333373733FF777733330B0FF00F
      0FF03333737F37737F373330B00FFFFF0F033337F77F33337F733309030FFFFF
      00333377737FFFFF773333303300000003333337337777777333}
    NumGlyphs = 2
  end
  object Alarmbtn: TBitBtn
    Left = 453
    Top = 1
    Width = 27
    Height = 22
    Hint = 'Alarm/Reminder System'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 9
    OnClick = AlarmbtnClick
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000120B0000120B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300130000031
      00333773F77777FF7733331000909000133333377737F777FF33330098F0F890
      0333337733F733F77F33370980FFF08907333373373F373373F33099FFFFFFF9
      903337F3F373F33FF7F33090F000FF00903337F73337F37737F3B099FFF0FFF9
      90B3373F33F7F3F33733070980F0F0890703337FF737F7337F33BB0098F0F890
      0BB33F77FF3733377FFF000009999900000377777FFFFF77777F088700000008
      77037F3377777773337F088887707888870373F3337773F33373B078800B0088
      70B3373FF733373FF73303700BBBBB007303337773F3F3777F33330BB0B0B0BB
      033333733737F73F73F330BB03B0B30BB0333733733733733733}
    NumGlyphs = 2
  end
  object NoteBookbtn: TBitBtn
    Left = 480
    Top = 1
    Width = 27
    Height = 22
    Hint = 'NoteBook'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 10
    OnClick = NoteBookbtnClick
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000120B0000120B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555550
      00555555555FFF57775F55555500050BBB0555FFF57775777775500050EEE000
      777057775777777775F709990777777770F0777775FFFFFFF7F7099990000000
      F0F07F5557777777F7F70FFFFFFFFFF0F0F07F5555555557F7F70FFFFFFFFFF0
      F0F07F5555555557F7F70FFFFFFFFFF0F0F07F5FF5FF5F57F7F70F77F77F7FF0
      F0F07F7757757557F7F70FFFFFFFFFF0F0F07F5FF5FFF557F7F70F77F777FFF0
      F0F07F7757775557F7F70FFFFFFFFFF0F0F07FF5F5F5F5F7F7F700F0F0F0F0F0
      F00577F7F7F7F7F7F77F0070707070700005777777777777777F707070707070
      55055757575757575F7555050505050500555575757575757755}
    NumGlyphs = 2
  end
  object PlannerBtn: TBitBtn
    Left = 369
    Top = 1
    Width = 27
    Height = 22
    Hint = 'Monthly Planner'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 6
    OnClick = PlannerBtnClick
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000120B0000120B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      33333FFFFFFFFFFFFFFF000000000000000077777777777777770FFFFFFFFFFF
      FFF07F3FF3FF3FF3FFF70F00F00F00F000F07F773773773777370FFFFFFFFFFF
      FFF07F3FF3FF3FF3FFF70F00F00F00F000F07F773773773777370FFFFFFFFFFF
      FFF07F3FF3FF3FF3FFF70F00F00F00F000F07F773773773777370FFFFFFFFFFF
      FFF07F3FF3FF3FF3FFF70F00F00F00F000F07F773773773777370FFFFFFFFFFF
      FFF07FFFFFFFFFFFFFF70CCCCCCCCCCCCCC07777777777777777088CCCCCCCCC
      C8807FF7777777777FF700000000000000007777777777777777333333333333
      3333333333333333333333333333333333333333333333333333}
    NumGlyphs = 2
  end
  object Panel8: TPanel
    Left = 1
    Top = 26
    Width = 29
    Height = 388
    BevelOuter = bvNone
    Ctl3D = False
    ParentCtl3D = False
    TabOrder = 13
    object Panel2: TPanel
      Left = 0
      Top = 0
      Width = 29
      Height = 154
      BevelInner = bvLowered
      BevelOuter = bvNone
      Caption = 'Panel2'
      Color = clTeal
      Ctl3D = False
      ParentCtl3D = False
      TabOrder = 0
      object DateCalcbtn: TBitBtn
        Left = 1
        Top = 128
        Width = 27
        Height = 25
        Hint = 'Date Calculator'
        ParentShowHint = False
        ShowHint = True
        TabOrder = 5
        OnClick = DateCalculator1Click
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000130B0000130B00001000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
          003337777777777777F330FFFFFFFFFFF03337F3333FFF3337F330FFFF000FFF
          F03337F33377733337F330FFFFF0FFFFF03337F33337F33337F330FFFF00FFFF
          F03337F33377F33337F330FFFFF0FFFFF03337F33337333337F330FFFFFFFFFF
          F03337FFF3F3F3F3F7F33000F0F0F0F0F0333777F7F7F7F7F7F330F0F000F070
          F03337F7F777F777F7F330F0F0F0F070F03337F7F7373777F7F330F0FF0FF0F0
          F03337F733733737F7F330FFFFFFFF00003337F33333337777F330FFFFFFFF0F
          F03337FFFFFFFF7F373330999999990F033337777777777F733330FFFFFFFF00
          333337FFFFFFFF77333330000000000333333777777777733333}
        NumGlyphs = 2
      end
      object Schedulebtn: TBitBtn
        Left = 1
        Top = 48
        Width = 27
        Height = 25
        Hint = 'Daily Scheduler'
        ParentShowHint = False
        ShowHint = True
        TabOrder = 2
        OnClick = SchedulebtnClick
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000120B0000120B00001000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00500000000055
          555557777777775F55550FFFFFFFFF0555557F5555555F7FFF5F0FEEEEEE0000
          05007F555555777775770FFFFFF0BFBFB00E7F5F5557FFF557770F0EEEE000FB
          FB0E7F75FF57775555770FF00F0FBFBFBF0E7F57757FFFF555770FE0B00000FB
          FB0E7F575777775555770FFF0FBFBFBFBF0E7F5575FFFFFFF5770FEEE0000000
          FB0E7F555777777755770FFFFF0B00BFB0007F55557577FFF7770FEEEEE0B000
          05557F555557577775550FFFFFFF0B0555557FF5F5F57575F55500F0F0F0F0B0
          555577F7F7F7F7F75F5550707070700B055557F7F7F7F7757FF5507070707050
          9055575757575757775505050505055505557575757575557555}
        NumGlyphs = 2
      end
      object ToDobtn: TBitBtn
        Left = 1
        Top = 73
        Width = 27
        Height = 25
        Hint = 'To Do List Manager'
        ParentShowHint = False
        ShowHint = True
        TabOrder = 3
        OnClick = ToDoListClick
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000120B0000120B00001000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00370777033333
          3330337F3F7F33333F3787070003333707303F737773333373F7007703333330
          700077337F3333373777887007333337007733F773F333337733700070333333
          077037773733333F7F37703707333300080737F373333377737F003333333307
          78087733FFF3337FFF7F33300033330008073F3777F33F777F73073070370733
          078073F7F7FF73F37FF7700070007037007837773777F73377FF007777700730
          70007733FFF77F37377707700077033707307F37773F7FFF7337080777070003
          3330737F3F7F777F333778080707770333333F7F737F3F7F3333080787070003
          33337F73FF737773333307800077033333337337773373333333}
        NumGlyphs = 2
      end
      object Journalbtn: TBitBtn
        Left = 1
        Top = 23
        Width = 27
        Height = 25
        Hint = 'Journal'
        ParentShowHint = False
        ShowHint = True
        TabOrder = 1
        OnClick = JournalbtnClick
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000120B0000120B00001000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          333333333333FF3333333333333C0C333333333333F777F3333333333CC0F0C3
          333333333777377F33333333C30F0F0C333333337F737377F333333C00FFF0F0
          C33333F7773337377F333CC0FFFFFF0F0C3337773F33337377F3C30F0FFFFFF0
          F0C37F7373F33337377F00FFF0FFFFFF0F0C7733373F333373770FFFFF0FFFFF
          F0F073F33373F333373730FFFFF0FFFFFF03373F33373F333F73330FFFFF0FFF
          00333373F33373FF77333330FFFFF000333333373F333777333333330FFF0333
          3333333373FF7333333333333000333333333333377733333333333333333333
          3333333333333333333333333333333333333333333333333333}
        NumGlyphs = 2
      end
      object Convertbtn: TBitBtn
        Left = 1
        Top = 103
        Width = 27
        Height = 25
        Hint = 'Coversion Charts'
        ParentShowHint = False
        ShowHint = True
        TabOrder = 4
        OnClick = ConvertbtnClick
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000120B0000120B00001000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00337333733373
          3373337F3F7F3F7F3F7F33737373737373733F7F7F7F7F7F7F7F770000000000
          000077777777777777773303333333333333337FFF333333333F370993333333
          3399377773F33333337733033933333339333F7FF7FFFFFFF7FF77077797CCC7
          977777777777777777773303339C333C9333337F3377F3377F33370333C93339
          C333377F33773FF77F33330333C39993C3333F7FFF7F777F7FFF770777C77777
          C77777777777777777773303333C333C3333337F33373FF7333337033333CCC3
          3333377F33337773333333033333333333333F7FFFFFFFFFFFFF770777777777
          7777777777777777777733333333333333333333333333333333}
        NumGlyphs = 2
      end
      object NewDatebtn: TBitBtn
        Left = 1
        Top = 1
        Width = 27
        Height = 22
        Hint = 'Select New Date'
        ParentShowHint = False
        ShowHint = True
        TabOrder = 0
        OnClick = ResetDatebtnClick
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000120B0000120B00001000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          33333FFFFFFFFFFFFFFF000000000000000077777777777777770FF7FF7FF7FF
          7FF07FF7FF7FF7F37F3709F79F79F7FF7FF077F77F77F7FF7FF7077777777777
          777077777777777777770FF7FF7FF7FF7FF07FF7FF7FF7FF7FF709F79F79F79F
          79F077F77F77F77F77F7077777777777777077777777777777770FF7FF7FF7FF
          7FF07FF7FF7FF7FF7FF709F79F79F79F79F077F77F77F77F77F7077777777777
          777077777777777777770FFFFF7FF7FF7FF07F33337FF7FF7FF70FFFFF79F79F
          79F07FFFFF77F77F77F700000000000000007777777777777777CCCCCC8888CC
          CCCC777777FFFF777777CCCCCCCCCCCCCCCC7777777777777777}
        NumGlyphs = 2
      end
    end
    object Cyclebtn: TBitBtn
      Left = 1
      Top = 158
      Width = 27
      Height = 22
      Hint = 'Cycle Calendar Display'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 1
      OnClick = CyclebtnClick
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333FFFFF3333333333999993333333333F77777FFF333333999999999
        3333333777333777FF33339993707399933333773337F3777FF3399933000339
        9933377333777F3377F3399333707333993337733337333337FF993333333333
        399377F33333F333377F993333303333399377F33337FF333373993333707333
        333377F333777F333333993333101333333377F333777F3FFFFF993333000399
        999377FF33777F77777F3993330003399993373FF3777F37777F399933000333
        99933773FF777F3F777F339993707399999333773F373F77777F333999999999
        3393333777333777337333333999993333333333377777333333}
      NumGlyphs = 2
    end
    object Panel3: TPanel
      Left = 0
      Top = 185
      Width = 29
      Height = 203
      BevelInner = bvLowered
      BevelOuter = bvNone
      Caption = 'Panel2'
      Color = clTeal
      Ctl3D = False
      ParentCtl3D = False
      TabOrder = 2
      object CreatePresetbtn: TBitBtn
        Left = 1
        Top = 181
        Width = 27
        Height = 22
        Hint = 'Create A Preset'
        ParentShowHint = False
        ShowHint = True
        TabOrder = 0
        OnClick = CreatePresetbtnClick
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000120B0000120B00001000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
          555555555555555555555555555555555555555555FF55555555555559055555
          55555555577FF5555555555599905555555555557777F5555555555599905555
          555555557777FF5555555559999905555555555777777F555555559999990555
          5555557777777FF5555557990599905555555777757777F55555790555599055
          55557775555777FF5555555555599905555555555557777F5555555555559905
          555555555555777FF5555555555559905555555555555777FF55555555555579
          05555555555555777FF5555555555557905555555555555777FF555555555555
          5990555555555555577755555555555555555555555555555555}
        NumGlyphs = 2
      end
      object PresetOn: TBitBtn
        Left = 1
        Top = 155
        Width = 27
        Height = 22
        TabOrder = 1
        OnClick = PresetOnClick
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000120B0000120B00001000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333303333
          333333333337F33333333333333033333333333333373F333333333333090333
          33333333337F7F33333333333309033333333333337373F33333333330999033
          3333333337F337F33333333330999033333333333733373F3333333309999903
          333333337F33337F33333333099999033333333373333373F333333099999990
          33333337FFFF3FF7F33333300009000033333337777F77773333333333090333
          33333333337F7F33333333333309033333333333337F7F333333333333090333
          33333333337F7F33333333333309033333333333337F7F333333333333090333
          33333333337F7F33333333333300033333333333337773333333}
        NumGlyphs = 2
      end
      object Presetbtn5: TBitBtn
        Tag = 5
        Left = 1
        Top = 133
        Width = 27
        Height = 22
        Hint = 'Empty Preset'
        ParentShowHint = False
        ShowHint = True
        TabOrder = 2
        OnClick = Presetbtn0Click
        NumGlyphs = 2
      end
      object Presetbtn4: TBitBtn
        Tag = 4
        Left = 1
        Top = 111
        Width = 27
        Height = 22
        Hint = 'Empty Preset'
        ParentShowHint = False
        ShowHint = True
        TabOrder = 3
        OnClick = Presetbtn0Click
        NumGlyphs = 2
      end
      object Presetbtn3: TBitBtn
        Tag = 3
        Left = 1
        Top = 89
        Width = 27
        Height = 22
        Hint = 'Empty Preset'
        ParentShowHint = False
        ShowHint = True
        TabOrder = 4
        OnClick = Presetbtn0Click
        NumGlyphs = 2
      end
      object Presetbtn2: TBitBtn
        Tag = 2
        Left = 1
        Top = 67
        Width = 27
        Height = 22
        Hint = 'Empty Preset'
        ParentShowHint = False
        ShowHint = True
        TabOrder = 5
        OnClick = Presetbtn0Click
        NumGlyphs = 2
      end
      object Presetbtn1: TBitBtn
        Tag = 1
        Left = 1
        Top = 45
        Width = 27
        Height = 22
        Hint = 'Empty Preset'
        ParentShowHint = False
        ShowHint = True
        TabOrder = 6
        OnClick = Presetbtn0Click
        NumGlyphs = 2
      end
      object Presetbtn0: TBitBtn
        Left = 1
        Top = 23
        Width = 27
        Height = 22
        Hint = 'Empty Preset'
        ParentShowHint = False
        ShowHint = True
        TabOrder = 7
        OnClick = Presetbtn0Click
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000120B0000120B00001000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          33333FFFFFFFFFFFFFFF000000000000000077777777777777770FF7FF7FF7FF
          7FF07FF7FF7FF7F37F3709F79F79F7FF7FF077F77F77F7FF7FF7077777777777
          777077777777777777770FF7FF7FF7FF7FF07FF7FF7FF7FF7FF709F79F79F79F
          79F077F77F77F77F77F7077777777777777077777777777777770FF7FF7FF7FF
          7FF07FF7FF7FF7FF7FF709F79F79F79F79F077F77F77F77F77F7077777777777
          777077777777777777770FFFFF7FF7FF7FF07F33337FF7FF7FF70FFFFF79F79F
          79F07FFFFF77F77F77F700000000000000007777777777777777CCCCCC8888CC
          CCCC777777FFFF777777CCCCCCCCCCCCCCCC7777777777777777}
        NumGlyphs = 2
      end
      object PresetBack: TBitBtn
        Left = 1
        Top = 1
        Width = 27
        Height = 22
        TabOrder = 8
        OnClick = PresetBackClick
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000120B0000120B00001000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000333
          3333333333777F33333333333309033333333333337F7F333333333333090333
          33333333337F7F33333333333309033333333333337F7F333333333333090333
          33333333337F7F33333333333309033333333333FF7F7FFFF333333000090000
          3333333777737777F333333099999990333333373F3333373333333309999903
          333333337F33337F33333333099999033333333373F333733333333330999033
          3333333337F337F3333333333099903333333333373F37333333333333090333
          33333333337F7F33333333333309033333333333337373333333333333303333
          333333333337F333333333333330333333333333333733333333}
        NumGlyphs = 2
      end
    end
  end
  object Anniversarybtn: TBitBtn
    Left = 507
    Top = 1
    Width = 27
    Height = 22
    Hint = 'Anniversaries'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 11
    OnClick = Anniversary1Click
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000120B0000120B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000000
      033333FFFF77777773F330000077777770333777773FFFFFF733077777000000
      03337F3F3F777777733F0797A770003333007F737337773F3377077777778803
      30807F333333337FF73707888887880007707F3FFFF333777F37070000878807
      07807F777733337F7F3707888887880808807F333333337F7F37077777778800
      08807F333FFF337773F7088800088803308073FF777FFF733737300008000033
      33003777737777333377333080333333333333F7373333333333300803333333
      33333773733333333333088033333333333373F7F33333333333308033333333
      3333373733333333333333033333333333333373333333333333}
    NumGlyphs = 2
  end
  object MasterIndbtn: TBitBtn
    Left = 342
    Top = 1
    Width = 27
    Height = 22
    Hint = 'Master Diary Index'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 5
    OnClick = MasterIndexClick
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000120B0000120B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00500000000000
      055557777777777775F508888888888880557F5FFFFFFFFFF75F080000000000
      88057577777777775F755080FFFFFF05088057F7FFFFFF7575F70000000000F0
      F08077777777775757F70FFFFFFFFF0F008075F5FF5FF57577F750F00F00FFF0
      F08057F775775557F7F750FFFFFFFFF0F08057FF5555555757F7000FFFFFFFFF
      0000777FF5FFFFF577770900F00000F000907F775777775777F7090FFFFFFFFF
      00907F7F555555557757000FFFFFFFFF0F00777F5FFF5FF57F77550F000F00FF
      0F05557F777577557F7F550FFFFFFFFF0005557F555FFFFF7775550FFF000000
      05555575FF777777755555500055555555555557775555555555}
    NumGlyphs = 2
  end
  object PrintYearlyCalbtn: TBitBtn
    Left = 542
    Top = 1
    Width = 27
    Height = 22
    Hint = 'Print Yearly Calendar'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 14
    OnClick = PrintYearlyCalbtnClick
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000120B0000120B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
      0003377777777777777308888888888888807F33333333333337088888888888
      88807FFFFFFFFFFFFFF7000000000000000077777777777777770F8F8F8F8F8F
      8F807F333333333333F708F8F8F8F8F8F9F07F333333333337370F8F8F8F8F8F
      8F807FFFFFFFFFFFFFF7000000000000000077777777777777773330FFFFFFFF
      03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF
      03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0
      33333337F3F37F3733333330F08F0F0333333337F7337F7333333330FFFF0033
      33333337FFFF7733333333300000033333333337777773333333}
    NumGlyphs = 2
  end
  object BitBtn2: TBitBtn
    Left = 572
    Top = 1
    Width = 51
    Height = 22
    Hint = 'Anniversaries'
    Caption = '&About'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 15
    OnClick = About1Click
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000120B0000120B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      3333333333FFFFF3333333333F797F3333333333F737373FF333333BFB999BFB
      33333337737773773F3333BFBF797FBFB33333733337333373F33BFBFBFBFBFB
      FB3337F33333F33337F33FBFBFB9BFBFBF3337333337F333373FFBFBFBF97BFB
      FBF37F333337FF33337FBFBFBFB99FBFBFB37F3333377FF3337FFBFBFBFB99FB
      FBF37F33333377FF337FBFBF77BF799FBFB37F333FF3377F337FFBFB99FB799B
      FBF373F377F3377F33733FBF997F799FBF3337F377FFF77337F33BFBF99999FB
      FB33373F37777733373333BFBF999FBFB3333373FF77733F7333333BFBFBFBFB
      3333333773FFFF77333333333FBFBF3333333333377777333333}
    NumGlyphs = 2
    Spacing = 0
  end
  object MainMenu1: TMainMenu
    Left = 172
    Top = 247
    object File1: TMenuItem
      Caption = '&File'
      object NewDiary: TMenuItem
        Caption = '&New Diary'
        ShortCut = 16462
        OnClick = NewDiaryClick
      end
      object N6: TMenuItem
        Caption = '-'
      end
      object LoadDiary: TMenuItem
        Caption = '&Load Diary'
        ShortCut = 16460
        OnClick = LoadDiaryClick
      end
      object SaveDiary: TMenuItem
        Caption = '&Save Diary'
        ShortCut = 16467
        OnClick = SaveDiaryClick
      end
      object SaveDiaryAs: TMenuItem
        Caption = 'Save Diary &As'
        ShortCut = 16449
        OnClick = SaveDiaryAsClick
      end
      object N7: TMenuItem
        Caption = '-'
      end
      object PreviousFile: TMenuItem
        Caption = 'Previous &File'
        object FromList: TMenuItem
          Caption = '&From List'
          OnClick = FromListClick
        end
        object N8: TMenuItem
          Caption = '-'
          Visible = False
        end
        object PF1: TMenuItem
          Caption = '&1'
          Visible = False
          OnClick = PF1Click
        end
        object PF2: TMenuItem
          Tag = 1
          Caption = '&2'
          Visible = False
          OnClick = PF1Click
        end
        object PF3: TMenuItem
          Tag = 2
          Caption = '&3'
          Visible = False
          OnClick = PF1Click
        end
        object PF4: TMenuItem
          Tag = 3
          Caption = '&4'
          Visible = False
          OnClick = PF1Click
        end
        object PF5: TMenuItem
          Tag = 4
          Caption = '&5'
          Visible = False
          OnClick = PF1Click
        end
      end
      object AutoLoad: TMenuItem
        Caption = 'AutoLoad'
        Checked = True
        OnClick = AutoLoadClick
      end
      object InitialScanWhenLoading: TMenuItem
        Caption = '&Initial Scan When Loading'
        Checked = True
        OnClick = InitialScanWhenLoadingClick
      end
      object ScheduleReminder: TMenuItem
        Caption = 'Schedule &Reminder'
        Checked = True
        OnClick = ScheduleReminderClick
      end
      object N9: TMenuItem
        Caption = '-'
      end
      object Print1: TMenuItem
        Caption = '&Print'
        object PrtToday: TMenuItem
          Caption = '&Today'
          OnClick = PrtTodayClick
        end
        object N10: TMenuItem
          Caption = '-'
        end
        object PrtGlobalSearch: TMenuItem
          Caption = '&Global Search'
          OnClick = GlobalSearchClick
        end
        object PrtDetailedSearch: TMenuItem
          Caption = '&Detailed Search'
          OnClick = DetailedSearchClick
        end
        object N11: TMenuItem
          Caption = '-'
        end
        object PrtThePast: TMenuItem
          Caption = 'The &Past'
          OnClick = PrtThePastClick
        end
        object PrtTheFuture: TMenuItem
          Caption = 'The &Future'
          OnClick = PrtThePastClick
        end
        object N18: TMenuItem
          Caption = '-'
        end
        object YearlyCalendar1: TMenuItem
          Caption = '&Yearly Calendar'
          OnClick = PrintYearlyCalbtnClick
        end
      end
      object N12: TMenuItem
        Caption = '-'
      end
      object ExitDiary: TMenuItem
        Caption = '&Exit'
        OnClick = ExitDiaryClick
      end
      object SaveExit1: TMenuItem
        Caption = 'Sa&ve && Exit'
        OnClick = SaveExit1Click
      end
    end
    object Edit1: TMenuItem
      Caption = '&Edit'
      object GlobalDelete1: TMenuItem
        Caption = '&Global Delete'
        OnClick = GlobalSearchClick
      end
      object DetailedDelete1: TMenuItem
        Caption = '&Detailed Delete'
        OnClick = DetailedSearchClick
      end
      object N21: TMenuItem
        Caption = '-'
      end
      object FindReplace1: TMenuItem
        Caption = '&Find && Replace'
        ShortCut = 16466
        OnClick = FindReplace1Click
      end
      object Delete1: TMenuItem
        Caption = 'D&elete'
        object Today1: TMenuItem
          Caption = '&Today'
          OnClick = Today1Click
        end
        object Past1: TMenuItem
          Caption = '&Past'
          OnClick = Past1Click
        end
        object Future1: TMenuItem
          Caption = '&Future'
          OnClick = Future1Click
        end
        object N22: TMenuItem
          Caption = '-'
        end
        object BetweenDates1: TMenuItem
          Caption = '&Between Dates'
          OnClick = BetweenDates1Click
        end
      end
      object N23: TMenuItem
        Caption = '-'
      end
      object Uppercase1: TMenuItem
        Caption = '&Uppercase'
        object Events1: TMenuItem
          Caption = '&Events'
          OnClick = Events1Click
        end
        object Places1: TMenuItem
          Tag = 1
          Caption = '&Places'
          OnClick = Events1Click
        end
        object DiaryText1: TMenuItem
          Tag = 2
          Caption = '&Diary Text'
          OnClick = Events1Click
        end
        object N24: TMenuItem
          Caption = '-'
        end
        object All1: TMenuItem
          Tag = 3
          Caption = '&All'
          OnClick = Events1Click
        end
      end
      object Lowercase1: TMenuItem
        Caption = '&Lowercase'
        object Events2: TMenuItem
          Tag = 10
          Caption = '&Events'
          OnClick = Events1Click
        end
        object Places2: TMenuItem
          Tag = 11
          Caption = '&Places'
          OnClick = Events1Click
        end
        object DiaryText2: TMenuItem
          Tag = 12
          Caption = '&Diary Text'
          OnClick = Events1Click
        end
        object N25: TMenuItem
          Caption = '-'
        end
        object All2: TMenuItem
          Tag = 13
          Caption = '&All'
          OnClick = Events1Click
        end
      end
      object Capitalise1: TMenuItem
        Caption = '&Capitalise'
        object Events3: TMenuItem
          Tag = 20
          Caption = '&Events'
          OnClick = Events1Click
        end
        object Places3: TMenuItem
          Tag = 21
          Caption = '&Places'
          OnClick = Events1Click
        end
        object DiaryText3: TMenuItem
          Tag = 22
          Caption = '&Diary Text'
          OnClick = Events1Click
        end
        object N26: TMenuItem
          Caption = '-'
        end
        object All3: TMenuItem
          Tag = 23
          Caption = '&All'
          OnClick = Events1Click
        end
      end
    end
    object Search1: TMenuItem
      Caption = '&Search'
      object GlobalSearch: TMenuItem
        Caption = '&Global Search'
        ShortCut = 16454
        OnClick = GlobalSearchClick
      end
      object N14: TMenuItem
        Caption = '-'
      end
      object FirstDate: TMenuItem
        Caption = '&First Date'
        ShortCut = 116
        OnClick = FirstDateClick
      end
      object PreviousDate: TMenuItem
        Caption = '&Previous Date'
        ShortCut = 117
        OnClick = PreviousDateClick
      end
      object NextDate: TMenuItem
        Caption = '&Next Date'
        ShortCut = 118
        OnClick = NextDateClick
      end
      object LastDate: TMenuItem
        Caption = '&Last Date'
        ShortCut = 119
        OnClick = LastDateClick
      end
      object N15: TMenuItem
        Caption = '-'
      end
      object DetailedSearch: TMenuItem
        Caption = '&Detailed Search'
        ShortCut = 120
        OnClick = DetailedSearchClick
      end
      object Future: TMenuItem
        Caption = 'All F&uture'
        object EventsOf: TMenuItem
          Caption = '&Events Of'
          OnClick = EventsOfClick
        end
        object PlacesOf: TMenuItem
          Caption = '&Places Of'
          OnClick = PlacesOfClick
        end
        object CategoriesOf: TMenuItem
          Caption = '&Categories of'
          object Cat1: TMenuItem
            Tag = 1
            Caption = 'Cat1'
            OnClick = Cat1Click
          end
          object Cat2: TMenuItem
            Tag = 2
            Caption = 'Cat2'
            OnClick = Cat1Click
          end
          object Cat3: TMenuItem
            Tag = 3
            Caption = 'Cat3'
            OnClick = Cat1Click
          end
          object Cat4: TMenuItem
            Tag = 4
            Caption = 'Cat4'
            OnClick = Cat1Click
          end
          object Cat5: TMenuItem
            Tag = 5
            Caption = 'Cat5'
            OnClick = Cat1Click
          end
          object Cat6: TMenuItem
            Tag = 6
            Caption = 'Cat6'
            OnClick = Cat1Click
          end
          object Cat7: TMenuItem
            Tag = 7
            Caption = 'Cat7'
            OnClick = Cat1Click
          end
          object Cat8: TMenuItem
            Tag = 8
            Caption = 'Cat8'
            OnClick = Cat1Click
          end
          object Cat9: TMenuItem
            Tag = 9
            Caption = 'Cat9'
            OnClick = Cat1Click
          end
          object Cat10: TMenuItem
            Tag = 10
            Caption = 'Cat10'
            OnClick = Cat1Click
          end
        end
      end
      object N16: TMenuItem
        Caption = '-'
      end
      object MasterIndex: TMenuItem
        Caption = '&Master Index'
        ShortCut = 121
        OnClick = MasterIndexClick
      end
      object WithinDates: TMenuItem
        Caption = '&Within Dates'
        ShortCut = 122
        OnClick = WithinDatesClick
      end
      object N17: TMenuItem
        Caption = '-'
      end
      object AllFuture: TMenuItem
        Caption = '&All Future'
        object Sundays: TMenuItem
          Tag = 1
          Caption = 'Sundays'
          OnClick = SundaysClick
        end
        object Mondays: TMenuItem
          Tag = 2
          Caption = 'Mondays'
          OnClick = SundaysClick
        end
        object Tuesdays: TMenuItem
          Tag = 3
          Caption = 'Tuesdays'
          OnClick = SundaysClick
        end
        object Wednesdays: TMenuItem
          Tag = 4
          Caption = 'Wednesdays'
          OnClick = SundaysClick
        end
        object Thursdays: TMenuItem
          Tag = 5
          Caption = 'Thursdays'
          OnClick = SundaysClick
        end
        object Fridays: TMenuItem
          Tag = 6
          Caption = 'Fridays'
          OnClick = SundaysClick
        end
        object Saturdays: TMenuItem
          Tag = 7
          Caption = 'Saturdays'
          OnClick = SundaysClick
        end
      end
      object AllPast: TMenuItem
        Caption = 'A&ll Past'
        object Sundays1: TMenuItem
          Tag = 1
          Caption = 'Sundays'
          OnClick = Sundays1Click
        end
        object Mondays1: TMenuItem
          Tag = 2
          Caption = 'Mondays'
          OnClick = Sundays1Click
        end
        object Tuesdays1: TMenuItem
          Tag = 3
          Caption = 'Tuesdays'
          OnClick = Sundays1Click
        end
        object Wednesdays1: TMenuItem
          Tag = 4
          Caption = 'Wednesdays'
          OnClick = Sundays1Click
        end
        object Thursdays1: TMenuItem
          Tag = 5
          Caption = 'Thursdays'
          OnClick = Sundays1Click
        end
        object Fridays1: TMenuItem
          Tag = 6
          Caption = 'Fridays'
          OnClick = Sundays1Click
        end
        object Saturdays1: TMenuItem
          Tag = 7
          Caption = 'Saturdays'
          OnClick = Sundays1Click
        end
      end
      object N27: TMenuItem
        Caption = '-'
      end
      object InitialScan: TMenuItem
        Caption = '&Initial Scan'
        ShortCut = 16457
        OnClick = DetailedSearchClick
      end
    end
    object Tools1: TMenuItem
      Caption = '&Tools'
      object Presets1: TMenuItem
        Caption = '&Presets'
        object CreateNew: TMenuItem
          Caption = '&Create New'
          OnClick = CreatePresetbtnClick
        end
        object EditViewExisting: TMenuItem
          Caption = '&Edit/View Existing'
          OnClick = EditViewExistingClick
        end
        object N1: TMenuItem
          Caption = '-'
        end
        object DeleteAPreset: TMenuItem
          Caption = '&Delete A Preset'
          OnClick = EditViewExistingClick
        end
        object DeleteAll: TMenuItem
          Caption = 'Delete &All'
          OnClick = DeleteAllClick
        end
      end
      object Anniversary2: TMenuItem
        Caption = '&Anniversary'
        object CreateNew1: TMenuItem
          Caption = 'View/&Create New'
          OnClick = Anniversary1Click
        end
        object DeleteAll1: TMenuItem
          Caption = '&Delete All'
          OnClick = DeleteAll1Click
        end
        object N19: TMenuItem
          Caption = '-'
        end
        object NextAnn: TMenuItem
          Caption = '&Next Anniversary'
          OnClick = NextAnnClick
        end
      end
      object N28: TMenuItem
        Caption = '-'
      end
      object ToDoList: TMenuItem
        Caption = '&ToDo List'
        object CreateViewList1: TMenuItem
          Caption = '&Create/View List'
          OnClick = ToDoListClick
        end
        object N29: TMenuItem
          Caption = '-'
        end
        object HaventDoneYet1: TMenuItem
          Caption = '&Yet ToDo'
          object SoFar1: TMenuItem
            Caption = '&So Far'
            OnClick = SoFar1Click
          end
          object N30: TMenuItem
            Caption = '-'
          end
          object Today2: TMenuItem
            Caption = '&Today'
            OnClick = SoFar1Click
          end
          object ThisWeek1: TMenuItem
            Caption = 'This &Week'
            OnClick = SoFar1Click
          end
          object NextWeek1: TMenuItem
            Caption = '&Next Week'
            OnClick = SoFar1Click
          end
          object N31: TMenuItem
            Caption = '-'
          end
          object TomorrowOnwards1: TMenuItem
            Caption = 'Tomorrow &Onwards'
            OnClick = SoFar1Click
          end
          object N32: TMenuItem
            Caption = '-'
          end
          object FromTo1: TMenuItem
            Caption = '&From .. To ?'
            OnClick = SoFar1Click
          end
        end
        object ThingsDone1: TMenuItem
          Caption = 'Things &Done'
          object SoFar2: TMenuItem
            Tag = 1
            Caption = '&So Far'
            OnClick = SoFar1Click
          end
          object N33: TMenuItem
            Caption = '-'
          end
          object Today3: TMenuItem
            Tag = 1
            Caption = '&Today'
            OnClick = SoFar1Click
          end
          object ThisWeek2: TMenuItem
            Tag = 1
            Caption = 'This &Week'
            OnClick = SoFar1Click
          end
          object NextWeek2: TMenuItem
            Tag = 1
            Caption = '&Next Week'
            OnClick = SoFar1Click
          end
          object N34: TMenuItem
            Caption = '-'
          end
          object TomorrowOnwards2: TMenuItem
            Tag = 1
            Caption = 'Tomorrow &Onwards'
            OnClick = SoFar1Click
          end
          object N35: TMenuItem
            Caption = '-'
          end
          object FromTo2: TMenuItem
            Tag = 1
            Caption = '&From .. To ?'
            OnClick = SoFar1Click
          end
        end
        object N36: TMenuItem
          Caption = '-'
        end
        object ResetCalendarTo1: TMenuItem
          Caption = '&Reset Calendar To'
          object FirstToDo1: TMenuItem
            Caption = '&First ToDo'
            OnClick = FirstToDo1Click
          end
          object LastToDo1: TMenuItem
            Caption = '&Last ToDo'
            OnClick = LastToDo1Click
          end
          object N38: TMenuItem
            Caption = '-'
          end
          object PreviousToDo1: TMenuItem
            Caption = '&Previous ToDo'
            OnClick = PreviousToDo1Click
          end
          object NextToDo1: TMenuItem
            Caption = '&Next ToDo'
            OnClick = NextToDo1Click
          end
        end
        object N39: TMenuItem
          Caption = '-'
        end
        object SearchToDoList1: TMenuItem
          Caption = '&Search ToDo List'
          OnClick = SearchToDoList1Click
        end
        object N40: TMenuItem
          Caption = '-'
        end
        object What1: TMenuItem
          Caption = '&What ??'
          OnClick = What1Click
        end
      end
      object Journal1: TMenuItem
        Caption = '&Journal'
        object EditView1: TMenuItem
          Caption = '&Edit/View'
          OnClick = JournalbtnClick
        end
        object N43: TMenuItem
          Caption = '-'
        end
        object JournalsPast1: TMenuItem
          Caption = 'Journals &Past'
          OnClick = JournalsPast1Click
        end
        object JournalsFuture1: TMenuItem
          Caption = 'Journals &Future'
          OnClick = JournalsPast1Click
        end
        object N44: TMenuItem
          Caption = '-'
        end
        object SearchJournal1: TMenuItem
          Caption = '&Search Journal'
          OnClick = SearchJournal1Click
        end
      end
      object N41: TMenuItem
        Caption = '-'
      end
      object DateCalculator1: TMenuItem
        Caption = '&Date Calculator'
        OnClick = DateCalculator1Click
      end
      object N48: TMenuItem
        Caption = '-'
      end
      object EditEventList1: TMenuItem
        Caption = 'Edit &Event List'
        OnClick = EditEventList1Click
      end
      object EditPlaceList1: TMenuItem
        Caption = 'Edit Place &List'
        OnClick = EditPlaceList1Click
      end
      object EditCategoryList1: TMenuItem
        Caption = 'Edit &Category List'
        OnClick = EditCategoryList1Click
      end
    end
    object Facilities1: TMenuItem
      Caption = '&Facilities'
      object AddressBook1: TMenuItem
        Caption = '&Address Book'
        OnClick = Button1Click
      end
      object ShoppingList1: TMenuItem
        Caption = '&Shopping List'
        OnClick = ShoppingbtnClick
      end
      object AlarmReminders1: TMenuItem
        Caption = 'Alarm/&Reminders'
        OnClick = AlarmbtnClick
      end
      object Notebook1: TMenuItem
        Caption = '&Notebook'
        OnClick = NoteBookbtnClick
      end
      object N49: TMenuItem
        Caption = '-'
      end
      object MonthlyPlanner1: TMenuItem
        Caption = '&Monthly Planner'
        OnClick = PlannerBtnClick
      end
      object MasterDiaryIndex1: TMenuItem
        Caption = 'Master &Diary Index'
        OnClick = MasterIndexClick
      end
      object N51: TMenuItem
        Caption = '-'
      end
      object ShowIconWindow1: TMenuItem
        Caption = 'Show &Icon Window'
        OnClick = ShowIconWindow1Click
      end
    end
    object Preferences1: TMenuItem
      Caption = '&Preferences'
      object PrinterSetup: TMenuItem
        Caption = 'Printer &Setup'
        OnClick = PrinterSetupClick
      end
      object N37: TMenuItem
        Caption = '-'
      end
      object ShowReminders1: TMenuItem
        Caption = 'Show Reminders'
        Checked = True
        OnClick = ShowReminders1Click
      end
      object N50: TMenuItem
        Caption = '-'
      end
      object BackupFiles1: TMenuItem
        Caption = '&Backup Files'
        OnClick = BackupFiles1Click
      end
    end
    object Help1: TMenuItem
      Caption = '&Help'
      object Contents1: TMenuItem
        Caption = '&Contents'
        OnClick = Contents1Click
      end
      object HowToRegister1: TMenuItem
        Caption = 'How To &Register'
        OnClick = HowToRegister1Click
      end
      object GettingStarted1: TMenuItem
        Caption = '&Getting Started'
        OnClick = GettingStarted1Click
      end
      object N13: TMenuItem
        Caption = '-'
      end
      object About1: TMenuItem
        Caption = '&About'
        OnClick = About1Click
      end
    end
  end
  object Timer: TTimer
    OnTimer = TimerTimer
    Left = 137
    Top = 250
  end
  object EntryMenu: TPopupMenu
    AutoPopup = False
    Left = 105
    Top = 244
    object EditEntryM: TMenuItem
      Caption = '&Edit Entry'
      OnClick = EditAllClick
    end
    object N2: TMenuItem
      Caption = '-'
    end
    object CutM: TMenuItem
      Caption = '&Cut'
      OnClick = CutMClick
    end
    object CopyM: TMenuItem
      Caption = 'C&opy'
      OnClick = CutMClick
    end
    object DeleteM: TMenuItem
      Caption = '&Delete'
      OnClick = DeleteMClick
    end
    object N3: TMenuItem
      Caption = '-'
    end
    object LinkM: TMenuItem
      Caption = '&Link With Address'
      OnClick = LinkMClick
    end
    object ShowLink1: TMenuItem
      Caption = '&Show Link'
      OnClick = ShowLink1Click
    end
    object N42: TMenuItem
      Caption = '-'
    end
    object SetAlarm1: TMenuItem
      Caption = 'Set &Alarm'
      OnClick = SetAlarmMClick
    end
    object RepeatEntry: TMenuItem
      Caption = '&Repeat'
      object Daily: TMenuItem
        Caption = '&Daily'
        OnClick = DailyClick
      end
      object Weekly1: TMenuItem
        Tag = 1
        Caption = '&Weekly'
        OnClick = DailyClick
      end
      object TwoWeekly: TMenuItem
        Tag = 2
        Caption = '&Two Weekly'
        OnClick = DailyClick
      end
      object FourWeekly: TMenuItem
        Tag = 3
        Caption = '&Four Weekly'
        OnClick = DailyClick
      end
      object Monthly: TMenuItem
        Tag = 4
        Caption = '&Monthly'
        OnClick = DailyClick
      end
      object Quarterly: TMenuItem
        Tag = 5
        Caption = '&Quarterly'
        OnClick = DailyClick
      end
      object Yearly: TMenuItem
        Tag = 6
        Caption = '&Yearly'
        OnClick = DailyClick
      end
      object N20: TMenuItem
        Caption = '-'
      end
      object Other1: TMenuItem
        Tag = 7
        Caption = '&Other'
        OnClick = DailyClick
      end
    end
    object N47: TMenuItem
      Caption = '-'
    end
    object AddToJournal1: TMenuItem
      Caption = 'Add To &Journal'
      OnClick = AddToJournal1Click
    end
  end
  object PageMenu: TPopupMenu
    AutoPopup = False
    Left = 117
    Top = 200
    object NewEntry1: TMenuItem
      Caption = '&New Entry'
      OnClick = EditAllClick
    end
    object N4: TMenuItem
      Caption = '-'
    end
    object CutPage1: TMenuItem
      Caption = '&Cut Page'
      OnClick = CutMClick
    end
    object CopyPage1: TMenuItem
      Caption = 'C&opy Page'
      OnClick = CutMClick
    end
    object Paste1: TMenuItem
      Caption = '&Paste'
      OnClick = Paste1Click
    end
    object N5: TMenuItem
      Caption = '-'
    end
    object Anniversary1: TMenuItem
      Caption = '&Anniversary'
      OnClick = Anniversary1Click
    end
    object ThingsToDo: TMenuItem
      Caption = '&Things ToDo'
      OnClick = ThingsToDoClick
    end
    object N45: TMenuItem
      Caption = '-'
    end
    object CreateViewSchedule1: TMenuItem
      Caption = 'Daily &Scheduler'
      OnClick = CreateViewSchedule1Click
    end
    object CreateViewJournal1: TMenuItem
      Caption = 'Daily &Journal'
      object ViewCreateTodaysJournal1: TMenuItem
        Caption = 'View/Create &Todays Journal'
        OnClick = CreateViewJournal1Click
      end
      object N46: TMenuItem
        Caption = '&Add Diary Entries To Todays Journal'
        OnClick = N46Click
      end
    end
  end
end